home *** CD-ROM | disk | FTP | other *** search
/ One Click 14 / OneClick14.iso / Ferramentas / Convert XLS to Pdf / xls2pdf_setup.exe / {app} / lib / pdf_ops.ps < prev    next >
Encoding:
Text File  |  2002-10-11  |  17.8 KB  |  589 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdf_ops.ps,v 1.26 2002/10/10 18:17:59 igor Exp $
  17. % Definitions for most of the PDF operators.
  18.  
  19. .currentglobal true .setglobal
  20.  
  21. % Define pdfmark.  Don't allow it to be bound in.
  22. % Also don't define it in systemdict, because this leads some Adobe code
  23. % to think this interpreter is a distiller.
  24. % (If this interpreter really is a distiller, don't do this.)
  25. systemdict /pdfmark known not
  26.  { userdict /pdfmark { cleartomark } bind put } if
  27.  
  28. userdict /GS_PDF_ProcSet 127 dict dup begin
  29.  
  30. % ---------------- Abbreviations ---------------- %
  31.  
  32. /bdef { bind def } bind def
  33.  
  34. % ---------------- Graphics state stack ---------------- %
  35.  
  36. % PDF adds a number of parameters to the graphics state.
  37. % We implement this by pushing and popping a dictionary
  38. % each time we do a PDF gsave or grestore.
  39. % The keys in this dictionary are as follows:
  40. %    self            % identifies the dictionary as one of ours
  41. %    ClipRect        % (optional)
  42. %    Show
  43. %    TextSaveMatrix        % matrix at time of BT (iff within BT/ET)
  44. % (The following correspond directly to PDF state parameters.)
  45. %    AlphaIsShape
  46. %    FillConstantAlpha
  47. %    FillColor
  48. %    FillColorSpace
  49. %    FillOverprint
  50. %    SoftMask
  51. %    StrokeConstantAlpha
  52. %    StrokeColor
  53. %    StrokeColorSpace
  54. %    StrokeOverprint
  55. %    TextSpacing
  56. %    TextHScaling
  57. %    Leading
  58. %    TextFont
  59. %    TextLineMatrix
  60. %    TextMatrix
  61. %    TextRise
  62. %    TextRenderingMode
  63. %    WordSpacing
  64.  
  65. /nodict 1 dict def
  66. nodict /self { //nodict } executeonly put
  67. nodict readonly pop
  68.  
  69. /dictbeginpage {    % <initialdict> dictbeginpage -
  70.   //nodict 20 dict .copydict begin { def } forall
  71.   graphicsbeginpage textbeginpage
  72. } bdef
  73. /endpage {    % - endpage -
  74.   showpage end
  75. } bdef
  76.  
  77. /graphicsbeginpage {
  78.   initgraphics
  79.   currentdict /ClipRect knownoget { aload pop rectclip } if
  80.   0 g  0 G  false op  false OP  0 OPM
  81.   1 ca  1 CA  null SMask  false AIS  /Compatible BM  true TK
  82. } bdef
  83.  
  84. /gput        % <value> <key> gput -
  85.  { exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
  86.         % If we're in a Level 1 system, we need to grow the
  87.         % dictionary explicitly.
  88.    currentdict length currentdict maxlength ge %eq
  89.     { currentdict dup length 3 mul 2 idiv 1 add dict .copydict end begin 
  90.     }
  91.    if def
  92.  } bdef
  93.  
  94. /q {
  95.   gsave //nodict begin
  96. } bdef
  97. % Some PDF files have excess Q operators!
  98. /Q {
  99.   currentdict /self .knownget {
  100.     exec //nodict eq { end grestore false } { true } ifelse
  101.   } {
  102.     true    % formaterror -- not a gsave dict
  103.   } ifelse
  104.   { (\n   **** File has imbalanced q/Q operators \(too many Q's\) ****\n)
  105.     pdfformaterror
  106.   } if
  107. } bdef
  108.  
  109. % ---------------- Color setting ---------------- %
  110.  
  111. /fcput        % <color> <colorspace> fcput -
  112.  { /FillColorSpace gput /FillColor gput
  113.  } bdef
  114. /scput        % <color> <colorspace> scput -
  115.  { /StrokeColorSpace gput /StrokeColor gput
  116.  } bdef
  117.  
  118. /csdevgray [/DeviceGray] readonly def
  119. /csdevrgb [/DeviceRGB] readonly def
  120. /csdevcmyk [/DeviceCMYK] readonly def
  121. /cspattern [/Pattern] readonly def
  122. /nullpattern1 mark
  123.    /PatternType 1 /PaintType 1 /TilingType 3 /BBox [0 0 0 0]
  124.    /XStep 1 /YStep 1 /PaintProc { }
  125. .dicttomark readonly def
  126. /nullpattern2 nullpattern1 dup length dict copy readonly def
  127.  
  128. % Each entry in the color space dictionary is a procedure of the form
  129. %    <cspace> -proc- <cspace> <initial-color>
  130. /CSdict mark
  131.   /DeviceGray { pop //csdevgray 0 } bind
  132.   /DeviceRGB { pop //csdevrgb [0 0 0] cvx } bind
  133.   /DeviceCMYK { pop //csdevcmyk [0 0 0 1] cvx } bind
  134.   /CIEBasedA { 0 } bind
  135.   /CIEBasedABC { [0 0 0] cvx } bind
  136.   /ICCBased { [ 1 index 1 oget /N get { 0 } repeat ] cvx } bind
  137.   /Separation { 1 } bind
  138.   /DeviceN {    % What is the correct value??
  139.     [ 1 index 1 get length { 1 } repeat ] cvx
  140.   } bind
  141.   /Indexed { 0 } bind
  142.   /Pattern {
  143.     dup type /nametype eq 1 index length 1 eq or {
  144.       pop //cspattern //nullpattern1 matrix makepattern
  145.     } {
  146.       //nullpattern2 matrix makepattern 1 index 1 get csset
  147.         % Stack: patternspace nullpattern basecolor basespace
  148.       pop [ 3 1 roll dup type /arraytype eq { aload pop } if
  149.       counttomark -1 roll ] cvx
  150.     } ifelse
  151.   } bind
  152. .dicttomark readonly def
  153. /csset            % <cspace> csset <color> <cspace>
  154.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec exch
  155.  } bdef
  156.  
  157. /g { //csdevgray fcput } bdef
  158. /G { //csdevgray scput } bdef
  159. /rg { 3 array astore cvx //csdevrgb fcput } bdef
  160. /RG { 3 array astore cvx //csdevrgb scput } bdef
  161. /k { 4 array astore cvx //csdevcmyk fcput } bdef
  162. /K { 4 array astore cvx //csdevcmyk scput } bdef
  163. /cs { csset fcput } bdef
  164. /CS { csset scput } bdef
  165. /ri { pop } bdef
  166. % We have to break up sc according to the number of operands.
  167. /sc1 { /FillColor gput } bdef
  168. /SC1 { /StrokeColor gput } bdef
  169. % We have to avoid storing into a color array associated with an outer
  170. % gsave level, so we do a kind of "copy on write".
  171. /sc* {
  172.   currentdict /FillColor .knownget {
  173.     astore pop
  174.   } {
  175.     /FillColor load length array astore cvx /FillColor gput
  176.   } ifelse
  177. } bdef
  178. /SC* {
  179.   currentdict /StrokeColor .knownget {
  180.     astore pop
  181.   } {
  182.     /StrokeColor load length array astore cvx /StrokeColor gput
  183.   } ifelse
  184. } bdef
  185.  
  186. % ---------------- Overprint/transparency setting ---------------- %
  187.  
  188. /op { /FillOverprint gput } bdef
  189. /OP { /StrokeOverprint gput } bdef
  190. /OPM {
  191.   /.setoverprintmode where { pop .setoverprintmode } { pop } ifelse
  192. } bdef
  193. /ca { /FillConstantAlpha gput } bdef
  194. /CA { /StrokeConstantAlpha gput } bdef
  195. /SMask { /SoftMask gput } bdef
  196. /AIS { /AlphaIsShape gput } bdef
  197. /BM {
  198.   /.setblendmode where {
  199.     pop [ exch dup type /nametype ne { aload pop } if /Normal ] {
  200.       { .setblendmode } .internalstopped not { exit } if pop
  201.     } forall
  202.   } {
  203.     pop
  204.   } ifelse
  205. } bdef
  206. /TK {
  207.   /.settextknockout where { pop .settextknockout } { pop } ifelse
  208. } bdef
  209.  
  210. % ---------------- Color installation ---------------- %
  211.  
  212. % Establish a given color (and color space) as current.
  213. /.settransparencyparams {    % <alpha> <smask> .settransparencyparams -
  214.   /.begintransparencymask where {
  215.     pop AlphaIsShape {
  216.       1 .setopacityalpha 0 .inittransparencymask exch .setshapealpha 1
  217.     } {
  218.       1 .setshapealpha 1 .inittransparencymask exch .setopacityalpha 0
  219.     } ifelse
  220.     % Set the soft mask by rendering the XObject.  Doing this every time
  221.     % is obviously very inefficient; we'll improve it later.
  222.     .settransparencymask    
  223.   } {
  224.     pop pop
  225.   } ifelse
  226. } bdef
  227. /.settransparencymask {        % <paramdict> <masknum> .settransparencymask -
  228.   exch dup null eq {
  229.     pop .inittransparencymask
  230.   } {
  231.     dup /Draw get exec
  232.   } ifelse
  233. } bdef
  234. % (Non-mask) images must execute setfillblend.
  235. /setfillblend {
  236.   FillOverprint setoverprint
  237.   FillConstantAlpha SoftMask .settransparencyparams
  238. } def
  239. /setfillstate {
  240.   FillColor FillColorSpace setgcolor setfillblend
  241. } def
  242. /setstrokestate {
  243.   StrokeColor StrokeColorSpace setgcolor StrokeOverprint setoverprint
  244.   StrokeConstantAlpha SoftMask .settransparencyparams
  245. } def
  246. /Cdict 15 dict dup begin    % <color...> <colorspace> -proc- -
  247.   /DeviceGray { pop setgray } bdef
  248.   /DeviceRGB { pop setrgbcolor } bdef
  249.   /DeviceCMYK { pop setcmykcolor } bdef
  250.   /CIEBasedA { setgcolorspace setcolor } bdef
  251.   /CIEBasedABC /CIEBasedA load def
  252.   /CIEBasedDEF /CIEBasedA load def
  253.   /CIEBasedDEFG /CIEBasedA load def
  254.   /ICCBased /CIEBasedA load def
  255.   /Separation /CIEBasedA load def
  256.   /DeviceN /CIEBasedA load def
  257.   /Indexed /CIEBasedA load def
  258.   /Pattern
  259.    { setgcolorspace
  260.  
  261.      % Since multiple patterns may share
  262.      % same data stream, we need to ensure
  263.      % that the stream is at 0 position.
  264.      % Making this consistently with resolveshading,
  265.      % which applies ReusableStreamDecode filter
  266.      % to the PS stream, which represents the
  267.      % PDF stream in dynamics.
  268.  
  269.      dup /Shading knownoget {
  270.        dup /ShadingType oget 4 ge {
  271.          /DataSource knownoget {
  272.            dup type /filetype eq {
  273.              0 setfileposition
  274.            } {
  275.              pop
  276.            } ifelse
  277.          } if
  278.        } {
  279.         pop
  280.        } ifelse
  281.      } if
  282.  
  283.      dup /Matrix knownoget not { matrix } if
  284.      gsave DefaultMatrix setmatrix makepattern grestore setcolor
  285.    } bdef
  286. end def
  287. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  288.  { 1 index null eq
  289.     { pop pop }
  290.     { dup 0 get //Cdict exch get exec }
  291.    ifelse
  292.  } bdef
  293. % Compare the old and new color spaces in an attempt to avoid expensive
  294. % reloads of CIEBased color spaces.
  295. /PCSdict 15 dict dup begin    % <colorspace> -proc- <colorspace|pdfcspace>
  296.   /CIEBasedA { dup 1 get /PDFColorSpace .knownget { exch pop } if } bdef
  297.   /CIEBasedABC /CIEBasedA load def
  298.   /CIEBasedDEF /CIEBasedA load def
  299.   /CIEBasedDEFG /CIEBasedA load def
  300.   /Indexed {
  301.     dup 1 get dup pdfcolorspace 2 copy ne { 3 1 roll } if pop pop
  302.   } bdef
  303. end def
  304. /pdfcolorspace {    % <colorspace> pdfcolorspace <colorspace|pdfcspace>
  305.   dup type /arraytype eq {
  306.     //PCSdict 1 index 0 get .knownget { exec } if
  307.   } if
  308. } bdef
  309. /setgcolorspace {    % <colorspace> setgcolorspace -
  310.   dup pdfcolorspace currentcolorspace pdfcolorspace eq {
  311.     pop
  312.   } {
  313.     setcolorspace
  314.   } ifelse
  315. } bdef
  316. /fsexec        % <fillop|strokeop> fsexec -
  317.  {        % Preserve the current point, if any.
  318.     { currentpoint } stopped
  319.     { $error /newerror false put   cvx exec }
  320.     { 3 -1 roll cvx exec moveto }
  321.    ifelse
  322.  } bdef
  323.  
  324. % ---------------- Path painting and clipping ---------------- %
  325.  
  326. /S { setstrokestate /stroke fsexec } bdef
  327. /f { setfillstate /fill fsexec } bdef
  328. /f* { setfillstate /eofill fsexec } bdef
  329. /n { newpath } bdef        % don't allow n to get bound in
  330. /s { closepath S } bdef
  331. /B { gsave setfillstate fill grestore S } bdef
  332. /b { closepath B } bdef
  333. /B* { gsave setfillstate eofill grestore S } bdef
  334. /b* { closepath B* } bdef
  335.  
  336. % Clipping:
  337.  
  338. /Wdict 4 dict dup begin
  339. /S { gsave setstrokestate stroke grestore n } bdef
  340. /f { gsave setfillstate fill grestore n } bdef
  341. /f* { gsave setfillstate eofill grestore n } bdef
  342. /n { end clip newpath } bdef
  343. end readonly def
  344. /W { //Wdict begin } bdef
  345. /W*dict 4 dict dup begin
  346. Wdict { def } forall
  347. /n { end eoclip newpath } bdef
  348. end readonly def
  349. /W* { //W*dict begin } bdef
  350.  
  351. % ---------------- Text control ---------------- %
  352.  
  353. /textbeginpage
  354.  { /TextSpacing 0 def        % 0 Tc
  355.    /TextLeading 0 def        % 0 TL
  356.    /TextRenderingMode 0 def    % 0 Tr
  357.    /TextRise 0 def        % 0 Ts
  358.    /WordSpacing 0 def        % 0 Tw
  359.    /TextHScaling 1.0 def    % 100 Tz
  360.    /TextFont null def
  361.    /Show { showfirst } def
  362.  } bdef
  363.  
  364. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  365. % if the CharProc for a Type 3 font does a BT/ET itself.
  366. % Since we always call the CharProc inside a q/Q, we simply ensure that
  367. % the text state is saved and restored like the rest of the extended
  368. % graphics state.
  369.  
  370. /settextmatrix {
  371.   TextMatrix concat
  372.   TextHScaling 1 ne { TextHScaling 1 scale } if
  373.   TextRise 0 ne { 0 TextRise translate } if
  374.   TextFont dup null eq { pop } { setfont } ifelse
  375. } bdef
  376. /settextstate {
  377.     % The text state can be set even outside BT/ET.
  378.   currentdict /TextSaveMatrix known {
  379.     TextSaveMatrix setmatrix settextmatrix
  380.   } if
  381. } bdef
  382. /settextposition {
  383.         % Update the TextMatrix translation.
  384.   gsave TextSaveMatrix setmatrix
  385.   currentpoint TextMatrix 4 2 getinterval astore pop
  386.         % We would like to do "grestore currentpoint translate"
  387.         % here, but some PDF files set a singular text matrix
  388.         % (0 0 0 0 <x> <y> Tm), so we can't do this.
  389.   TextTempMatrix identmatrix setmatrix currentpoint
  390.   grestore
  391.   TextTempMatrix currentmatrix 4 2 getinterval astore pop
  392.   TextTempMatrix setmatrix
  393. } bdef
  394.  
  395. /BT {
  396.   currentdict /TextLineMatrix .knownget
  397.     { identmatrix pop TextMatrix identmatrix pop }
  398.     { matrix /TextLineMatrix gput matrix /TextMatrix gput }
  399.   ifelse
  400.   { showfirst } /Show gput
  401.   currentdict /TextSaveMatrix .knownget not {
  402.     matrix dup /TextSaveMatrix gput
  403.   } if currentmatrix pop settextmatrix
  404.   matrix /TextTempMatrix gput        % see settextposition
  405. } bdef
  406. /ET {
  407.   TextRenderingMode 4 ge { clip newpath } if
  408.   TextSaveMatrix setmatrix
  409.   currentdict /TextSaveMatrix undef
  410. } bdef
  411. /Tc { /TextSpacing gput { showfirst } /Show gput } bdef
  412. /TL { /TextLeading gput } bdef
  413. /Tr { /TextRenderingMode gput { showfirst } /Show gput } bdef
  414. /Ts { /TextRise gput settextstate } bdef
  415. /Tw { /WordSpacing gput { showfirst } /Show gput } bdef
  416. /Tz { 100 div /TextHScaling gput settextstate} bdef
  417.  
  418. % ---------------- Font control ---------------- %
  419.  
  420. /Tf {        % <font> <scale> Tf -
  421.   dup 1 eq { pop } { scalefont } ifelse
  422.   /TextFont gput settextstate
  423. } bdef
  424.  
  425. % Read a CFF font.
  426. /FRD        % <resname> <file> FRD -
  427.  { /FontSetInit /ProcSet findresource begin true ReadData
  428.  } bdef
  429.  
  430. % Copy a font, removing its FID.  If changed is true, also remove
  431. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  432. % the keys being removed, don't copy it.
  433. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  434.  { 1 index /FID known
  435.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  436.     {        % We add 1 to the length just in case the original
  437.         % didn't have a FID.
  438.       exch dup length 1 add dict exch
  439.        {        % Stack: changed newfont key value
  440.      1 index /FID eq 4 index
  441.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  442.      if not { 3 copy put } if pop pop
  443.        }
  444.       forall exch
  445.     }
  446.    if pop
  447.  } bdef
  448.  
  449. % Insert a new Encoding or Metrics into a font if necessary.
  450. % Return a possibly updated font, and a flag to indicate whether
  451. % the font was actually copied.
  452. /.updatefontmetrics {    % <font> <Metrics|null> .updatefontmetrics
  453.             %   <font'> <copied>
  454.   dup null ne {
  455.     exch true .copyfontdict dup /Metrics 4 -1 roll put true
  456.   } {
  457.     pop false
  458.   } ifelse
  459. } bdef
  460. /.updatefontencoding {    % <font> <Encoding|null> .updatefontencoding
  461.             %   <font'> <copied>
  462.   dup null ne { dup 2 index /Encoding get ne } { false } ifelse {
  463.     exch false .copyfontdict dup /Encoding 4 -1 roll put true
  464.   } {
  465.     pop false
  466.   } ifelse
  467. } bdef
  468. /.updatefont {        % <font> <Encoding|null> <Metrics|null> .updatefont
  469.             %   <font'> <copied>
  470.   3 -1 roll exch .updatefontmetrics
  471.             % Stack: enc|null font' copied
  472.   3 1 roll exch .updatefontencoding 3 -1 roll or
  473. } bdef
  474.  
  475. % ---------------- Text positioning ---------------- %
  476.  
  477. /Td {
  478.   TextLineMatrix transform TextLineMatrix 4 2 getinterval astore pop
  479.   TextLineMatrix TextMatrix copy pop settextstate
  480. } bdef
  481. /TD { dup neg /TextLeading gput Td } bdef
  482. /T* { 0 TextLeading neg Td } bdef
  483. /Tm {
  484.   TextLineMatrix astore TextMatrix copy pop settextstate
  485. } bdef
  486.  
  487. % ---------------- Text painting ---------------- %
  488.  
  489. /Vexch {
  490.   rootfont /WMode knownoget { 1 eq { exch } if } if
  491. } bind def
  492.  
  493. /textrenderingprocs [        % (0 is handled specially)
  494.     % Painting-only modes
  495.    { tf } { tS } { tB } { tn }
  496.     % Clipping modes
  497.    { gsave tf grestore tW }
  498.    { gsave tS grestore tW }
  499.    { gsave tB grestore tW }
  500.    { tW }
  501. ] readonly def
  502. /setshowstate
  503.  { WordSpacing 0 eq TextSpacing 0 eq and
  504.     { TextRenderingMode 0 eq {
  505.         { setfillstate show }
  506.       } {
  507.         TextRenderingMode 3 eq {
  508.           {     % Some PDF files execute 'tm' with a singular matrix,
  509.         % and then use this text rendering mode.
  510.         % The graphics library currently cannot handle text
  511.         % operations when the CTM is singular.
  512.         % Work around this here.
  513.         matrix currentmatrix
  514.         {1 0 0 1 0 0} setmatrix
  515.         exch stringwidth
  516.         3 -1 roll setmatrix
  517.         rmoveto
  518.  
  519.           }
  520.         } {
  521.           { false charpath textrenderingprocs TextRenderingMode get exec }
  522.         } ifelse
  523.       } ifelse
  524.     }
  525.     { TextRenderingMode 0 eq
  526.        { WordSpacing 0 eq
  527.           { { setfillstate TextSpacing 0 Vexch 3 -1 roll ashow } }
  528.       { TextSpacing 0 eq
  529.             { { setfillstate WordSpacing 0 Vexch 32 4 -1 roll widthshow } }
  530.             { { setfillstate WordSpacing 0 Vexch 32
  531.                  TextSpacing 0 Vexch 6 -1 roll awidthshow } }
  532.         ifelse
  533.       }
  534.      ifelse
  535.        }
  536.        { { WordSpacing TextSpacing
  537.             % Implement the combination of t3 and false charpath.
  538.             % Note that we must use cshow for this, because we
  539.             % can't parse multi-byte strings any other way.
  540.             % Stack: string xword xchar
  541.         { pop pop (x) dup 0 3 index put false charpath
  542.             % Stack: xword xchar ccode
  543.              3 copy 32 eq { add } { exch pop } ifelse 0 Vexch rmoveto pop
  544.         }
  545.        4 -1 roll cshow pop pop
  546.        textrenderingprocs TextRenderingMode get exec
  547.      }
  548.        }
  549.       ifelse
  550.     }
  551.    ifelse /Show gput
  552.  } bdef
  553. /showfirst { setshowstate Show } def
  554.  
  555. /Tj {
  556.   0 0 moveto Show settextposition
  557. } bdef
  558. /' { T* Tj } bdef
  559. /" { exch Tc exch Tw T* Tj } bdef
  560. /TJ {
  561.   0 0 moveto {
  562.     dup type /stringtype eq {
  563.       Show
  564.     } { -1000 div
  565.       currentfont /ScaleMatrix .knownget { 0 get mul } if
  566.       0 Vexch rmoveto
  567.     } ifelse
  568.   } forall settextposition
  569. } bdef
  570.  
  571. /tf { setfillstate currentpoint fill moveto } bdef
  572. /tn { currentpoint newpath moveto } bdef
  573. % For stroking characters, temporarily restore the graphics CTM so that
  574. % the line width will be transformed properly.
  575. /Tmatrix matrix def
  576. /tS
  577.  { setstrokestate
  578.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  579.    setmatrix moveto
  580.  } bdef
  581. /tB { gsave tf grestore tS } bdef
  582. % This does the wrong thing if there have been multiple text operations
  583. % within a single BT/ET pair, but it's a start.
  584. /tW { } bdef
  585.  
  586. end readonly put        % GS_PDF_ProcSet
  587.  
  588. .setglobal
  589.